Option Explicit
Sub L_Sample005()
    'ոL_Data02
    Dim mySht    As Worksheet
    Dim myShp    As Shape
    Dim myConf   As ControlFormat
    Dim myStr    As String
    Dim myTmpStr As String
    Set mySht = Worksheets("L_Data02")		'N
    mySht.Activate
    For Each myShp In mySht.Shapes
        If myShp.Type = msoFormControl Then
            Set myConf = myShp.ControlFormat
            With myConf
                myStr = myShp.Name & vbCrLf
                Select Case myShp.FormControlType
                    Case xlListBox, xlDropDown
                        If .Value > 0 Then
                        myStr = myStr & "Value=" & .List(.Value)
                        End If
                    Case xlSpinner, xlCheckBox, xlOptionButton
                        myStr = myStr & "Value=" & .Value
                End Select
                MsgBox myStr
            End With
        End If
    Next
    Set myConf = Nothing				'
    Set mySht = Nothing
End Sub
